﻿Public Class clsMisc
    Private m_pDate As Date
    Private m_sDescription As String
    Private m_dCost As Single
    Private m_sNote As String

    Public Property MiscDate As Date
        Get
            Return m_pDate
        End Get
        Set(ByVal value As Date)
            m_pDate = value
        End Set
    End Property
    Public Property Description As String
        Get
            Return m_sDescription
        End Get
        Set(ByVal value As String)
            m_sDescription = value
        End Set
    End Property
    Public Property Cost As Single
        Get
            Return m_dCost
        End Get
        Set(ByVal value As Single)
            m_dCost = value
        End Set
    End Property
    Public Property Note As String
        Get
            Return m_sNote
        End Get
        Set(ByVal value As String)
            m_sNote = value
        End Set
    End Property

End Class
